home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 February / Software of the Month - Ultimate Collection Shareware 258.iso / pc / internet.dir / 00001_Script_1 next >
Text File  |  1998-12-07  |  4KB  |  184 lines

  1.  
  2. on startMovie
  3.   
  4.   global  LINECLICK 
  5.   set LINECLICK to 1
  6.   set the forecolor of member "progDisplay" to 255 -- set text to black
  7.   set the forecolor of line 1 of member "progDisplay" to 0
  8.   --* This declares the variables for the finger cursor. *
  9.   
  10.   global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  11.   set FINGER to the memberNum of member "Finger1"
  12.   set FINGERMASK to the memberNum of member "Finger2"
  13.   set MAGNIFY to the memberNum of member "MAGGLASS"
  14.   set MAGNIFY2 to the memberNum of member "MAGGLASS2"
  15.   set MAGNIFYMASK to the memberNum of member "MAGGLASS1"
  16.   glowClear()
  17.   
  18. end
  19.  
  20.  
  21. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  22.  
  23. on glow WHICHSPRITE, TRUEORFALSE
  24.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  25. end glow
  26.  
  27. --* TURN OF ALL GLOWS ON START
  28. on glowClear
  29.   repeat with i = 20 to 36
  30.     glow(i)
  31.   end repeat
  32.   glow(48)
  33. end
  34.  
  35. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  36.  
  37. on textglow WHICHMEMBER, COLORNUMBER
  38.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  39. end textglow
  40.  
  41.  
  42. --* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
  43. --on mouseEnter
  44. --  if not count(the windowList) then
  45. --    doRollover(52)
  46. --  end if
  47. --end
  48. --
  49. --
  50. --on mouseLeave
  51. --  if not count(the windowList) then
  52. --    doRollout(52)
  53. --  end if
  54. --end
  55.  
  56.  
  57.  
  58. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  59.  
  60. on openMIAW MYWINDOW
  61.   set myRect=the rect of window MYWINDOW
  62.   set myStage=the rect of the Stage
  63.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  64.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  65.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  66.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  67.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  68.   set the rect of window MYWINDOW=myNewRect
  69.   set the windowType of window MYWINDOW to 2
  70.   open window MYWINDOW
  71. end openMIAW
  72.  
  73.  
  74. --* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
  75.  
  76. on doRollover NUMSPRITE,NUMSOUND
  77.   glow(numsprite,TRUE)
  78.   global finger,fingermask
  79.   cursor[finger,fingermask]  
  80.   case  NUMSOUND of      
  81.     1: puppetsound 1, "Scissors"
  82.     2: puppetsound 1, "Butane"
  83.     3: puppetsound 1, "Scissors"
  84.     4: puppetsound 1, "Scissors"
  85.   end case 
  86.   updatestage
  87. end
  88.  
  89. on doRollover3 NUMSPRITE,NUMSOUND
  90.   glow(numsprite,TRUE)
  91.   global MAGNIFY, MAGNIFYMASK
  92.   cursor [MAGNIFY,MAGNIFYMASK]
  93.   updatestage
  94.   case  NUMSOUND of
  95.       
  96.     1: puppetsound 1, "Scissors"
  97.     2: puppetsound 1, "Butane"
  98.     3: puppetsound 1, "Scissors"
  99.     4: puppetsound 1, "Scissors"
  100.   end case  
  101. end
  102.  
  103.  
  104.  
  105. on doRollover4 NUMSPRITE,NUMSOUND
  106.   glow(numsprite,TRUE)
  107.   global MAGNIFY2, MAGNIFYMASK
  108.   cursor [MAGNIFY2,MAGNIFYMASK]
  109.   updatestage
  110.   case  NUMSOUND of
  111.       
  112.     1: puppetsound 1, "Scissors"
  113.     2: puppetsound 1, "Butane"
  114.     3: puppetsound 1, "Scissors"
  115.     4: puppetsound 1, "Scissors"
  116.   end case  
  117. end
  118.  
  119.  
  120.  
  121.  
  122. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  123. on doRollout numsprite
  124.   glow(numsprite,FALSE)
  125.   cursor 0
  126. end
  127.  
  128. --* PLAYS A CLICK SOUND
  129.  
  130. on doClick
  131.   puppetsound 1,"close"
  132.   updateStage
  133. end
  134.  
  135.  
  136. on doZoomout numsprite,soundwait
  137.   puppetsound 1, "close"  
  138.   if soundwait then
  139.     repeat while soundbusy (1)
  140.     end repeat
  141.     set soundwait to FALSE
  142.   end if
  143.   glow(numsprite, TRUE)
  144.   global MAGNIFY2, MAGNIFYMASK
  145.   cursor [MAGNIFY2,MAGNIFYMASK]
  146.   updatestage
  147. end
  148.  
  149. on doZoomin numsprite,soundwait
  150.   puppetsound 1, "close"  
  151.   if soundwait then
  152.     repeat while soundbusy (1)
  153.     end repeat
  154.     set soundwait to FALSE
  155.   end if
  156.   glow(numsprite, TRUE)
  157.   global MAGNIFY, MAGNIFYMASK
  158.   cursor [MAGNIFY,MAGNIFYMASK]
  159.   updatestage
  160. end
  161.  
  162.  
  163. on setpath
  164.   Global SETUPPATH95,LINECLICK
  165.   
  166.   case LINECLICK of
  167.       
  168.     1:set SETUPPATH95 to "@\INTERNET\Atguard\atguard.exe"
  169.       
  170.     2:set SETUPPATH95 to "@\INTERNET\Navigation\setup.exe"
  171.       
  172.     3:set SETUPPATH95 to "@\INTERNET\browse98\Setup.exe"
  173.       
  174.     4:set SETUPPATH95 to "@\INTERNET\ftppro98\setup.exe"
  175.       
  176.     5:set SETUPPATH95 to "@\INTERNET\Funecard\setup.exe"
  177.       
  178.       
  179.   end case
  180. end
  181.  
  182.  
  183.  
  184.